home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1995 September / JCSM Shareware Collection (September 30th 1995 Author to Vendor Edition) (JCS Distribution).ISO / business / 11420e01.ziv / PFRM.EXE / FEDEX.FRM < prev    next >
Text File  |  1989-03-19  |  6KB  |  200 lines
  1. ~{The TESTDATA file should be on the screen when printing this form.}~
  2. ~{Lines beginning and ending with tildes and curley brackets are comments.}~
  3. ~{The number following the comma in each code is the number of characters to}~
  4. ~{be read from the screen.}~
  5.  
  6.  
  7. FED-EX #        ~DATE~
  8.  
  9. ~{the ~\~ code on the next line means that it is to be overwritten by the}~
  10. ~{following one.  The ~+~ code at the end of a line means that the NEXT line}~
  11. ~{should be joined to it}~
  12. Your Name                  000-000-0000~\~
  13.                                           ~("Name: ",20)~~\~
  14.                                                                 ~+~
  15. ~("Phone: ",15)~
  16.  
  17. Your Company~\~
  18.                                           ~("Firm: ",35)~
  19.  
  20. Your Street~\~
  21.                                           ~("Addr: ",35)~
  22.  
  23. Your City & State          Zip~\~
  24.                                           ~("City: ",23)~~\~
  25.                                                                 ~+~
  26. ~("Zip: ",11)~
  27. ~{the next 2 lines allow you to specify services and special handling}~
  28. ~label SERVICES~
  29. ~NUM3CC~
  30. ~NUM3+INPUT 1=Priority1 2=O'niteEnv 3=O'niteBox 4=O'niteTube 5=StdAir 6=Ltr~
  31. ~{next line says to repeat the last line if 1,2 3,4,5 or 6 wasn't selected}~
  32. ~if num3|1,2,3,4,5,6~~goto SERVICES~~\~
  33. ~label HANDLING~
  34. ~NUM4CC~
  35. ~NUM4+INPUT 1=Hold 2=Wkday 3=SatDel 4=Danger 5=CCS 6=ICE 9=SatPU 12=HoliDay~
  36. ~{next line says to repeat the last line if 1,2 3,4,9 or 12 wasn't selected}~
  37. ~if num4|1,2,3,4,5,6,9,12~~goto HANDLING~~\~
  38. ~{the next line tells PopForm to go to ENDHOLD label if NUM4 is not 1}~
  39. ~if 1<>NUM4~~goto ENDHOLD~~\~
  40. ~{the next 3 lines ask for the FedEx address, city, state & zip for hold item}~
  41. ~WRD1+INPUT Street address of FedEx office where item will be held~
  42. ~WRD2+INPUT City, State of FedEx office where item will be held~
  43. ~WRD3+INPUT Zip of FedEx office where item will be held~
  44. ~label ENDHOLD~
  45.  
  46. Put your billing reference information here~\~
  47. ~{the next lines print the holding info, if you specified any}~
  48. ~if ""=wrd1~~goto ENDHOLDADD~~\~
  49.                                               ~wrd1~~\~
  50. ~label ENDHOLDADD~
  51.  
  52. ~{the next line asks for the method of payment and stores it as NUM1}~
  53. ~label PAYMENT~
  54. ~NUM1CC~
  55. ~NUM1+INPUT "Payment: 1=Sender 2=Recip 3=3dParty 4=Card 5=Cash"~~\~
  56. ~{the next line says to repeat the last line if 1,2 3,4 or 5 wasn't selected}~
  57. ~if num1|1,2,3,4,5~~goto PAYMENT~~\~
  58. ~if 1<>NUM1~~goto PM2~~\~
  59.    X
  60. ~goto FILLIN~
  61. ~label PM2~
  62. ~if 2<>NUM1~~goto PM3~~\~
  63.          X
  64. ~goto FILLIN~
  65. ~label PM3~
  66. ~if 3<>NUM1~~goto PM4~~\~
  67.                      X
  68. ~goto FILLIN~
  69. ~label PM4~
  70. ~if 4<>NUM1~~goto PM4~~\~
  71.                                  X
  72. ~goto FILLIN~
  73. ~label PM4~
  74.  
  75.     X~\~
  76. ~label FILLIN~
  77. ~if 2<>NUM1~~goto 3DPART~~\~
  78.           ~INPUT "Recipient's FedEx Acct Number:"~~\~
  79. ~goto SERVICE~
  80. ~label 3DPART~
  81. ~if 3<>NUM1~~goto CC~~\~
  82.           ~INPUT "3d Party FedEx Acct Number:"~~\~
  83. ~goto SERVICE~
  84. ~label CC~
  85. ~if 4<>NUM1~~goto SERVICE~~\~
  86.           MC 100-000000-00000~\~
  87. ~label SERVICE~
  88. ~if ""=wrd2~~goto ENDHOLDSTR~~\~
  89.                                               ~wrd2~~\~
  90.                                                                 ~wrd3~~\~
  91. ~label ENDHOLDSTR~
  92.  
  93.  
  94.  
  95. ~if 1<>Num3~~goto A~~\~
  96. X~\~
  97. ~label A~
  98. ~if 6<>Num3~~goto B~~\~
  99.         X~\~
  100. ~label B~
  101. ~if 1<>Num4~~goto C~~\~
  102.                  X~\~
  103. ~label C~
  104. ~NUM1cc~
  105. ~NUM1+INPUT "First Package's weight, in pounds"~
  106. ~NUM2+INPUT "First Package's value"~
  107. ~DECIMALS 1~
  108.                                 ~if 0<>NUM1~1  ~NUM1~~\~
  109. ~DECIMALS 2~
  110.                                        ~if 0<>NUM2~~NUM2~~\~
  111. ~NUM8+NUM1~
  112. ~NUM9+NUM2~
  113.  
  114. ~if 2<>Num4~~goto D~~\~
  115.                       X~\~
  116. ~label D~
  117. ~if 0=num1~~goto END2~~\~
  118. ~NUM1cc~
  119. ~NUM2cc~
  120. ~NUM1+INPUT "Second Package's weight, in pounds"~
  121. ~NUM2+INPUT "Second Package's value"~
  122. ~DECIMALS 1~
  123.                                 ~if 0<>NUM1~2  ~NUM1~~\~
  124. ~DECIMALS 2~
  125.                                        ~if 0<>NUM2~~NUM2~~\~
  126. ~NUM8+NUM1~
  127. ~NUM9+NUM2~
  128. ~label END2~
  129.  
  130. ~if 2<>Num3~~goto E~~\~
  131. X~\~
  132. ~label E~
  133. ~if 3<>Num4~~goto F~~\~
  134.                               X~\~
  135. ~label F~
  136. ~if 0=num1~~goto END3~~\~
  137. ~NUM1cc~
  138. ~NUM2cc~
  139. ~NUM1+INPUT "Third Package's weight, in pounds"~
  140. ~NUM2+INPUT "Third Package's value"~
  141. ~DECIMALS 1~
  142.                                 ~if 0<>NUM1~3  ~NUM1~~\~
  143. ~DECIMALS 2~
  144.                                        ~if 0<>NUM2~~NUM2~~\~
  145. ~NUM8+NUM1~
  146. ~NUM9+NUM2~
  147. ~label END3~
  148.  
  149. ~if 4<>Num4~~goto G~~\~
  150.                  X~\~
  151. ~label G~
  152. ~if 0=num1~~goto END4~~\~
  153. ~NUM1cc~
  154. ~NUM2cc~
  155. ~NUM1+INPUT "Fourth Package's weight, in pounds"~
  156. ~NUM2+INPUT "Fourth Package's value"~
  157. ~DECIMALS 1~
  158.                                 ~if 0<>NUM1~4  ~NUM1~~\~
  159. ~DECIMALS 2~
  160.                                        ~if 0<>NUM2~~NUM2~~\~
  161. ~label END4~
  162.  
  163. ~if 3<>Num3~~goto H~~\~
  164. X~\~
  165. ~label H~
  166. ~if 5<>Num4~~goto I~~\~
  167.                  X~\~
  168. ~label I~
  169. ~NUM8+NUM1~
  170. ~NUM9+NUM2~
  171. ~DECIMALS 1~
  172.                                    ~if 0<>NUM8~~NUM8~~\~
  173. ~DECIMALS 2~
  174.                                        ~if 0<>NUM9~~NUM9~~\~
  175.  
  176. ~if 6<>Num4~~goto J~~\~
  177.                  X~\~
  178. ~label J~
  179.  
  180. ~if 4<>Num3~~goto K~~\~
  181. X~\~
  182. ~label K~
  183. ~if 7<>Num4~~goto L~~\~
  184.                  X~\~
  185. ~label L~
  186.  
  187.  
  188. ~if 9<>Num4~~goto M~~\~
  189. X~\~
  190. ~label M~
  191.  
  192. ~if 5<>Num3~~goto N~~\~
  193. X~\~
  194. ~label N~
  195.  
  196. ~if 12<>Num4~~goto O~~\~
  197.                  X~\~
  198. ~label O~
  199. ~NEWPAGE~
  200.